
	*** Validation of access measures
	 

	use "Temp/Master_5yr.dta" , clear
	 
		
	 
	  
	 
	 
	 
	 
	 
	**** 
	 eststo clear
	  
	  
	  
		*** Validate Aid 
		
			* rescale to PP
			replace ODA_col_all=ODA_col_all*100
	 
				
			eststo aid1: reghdfe ODA_col_all          		S_g5_unw_alliance_abs                   			 if  dtax_non_trade_real != . & indep==1	, absorb(year iso_n)  cluster (iso_n  ) 
			eststo aid2: reghdfe ODA_col_all          		i.S_g5_unw_alliance_abs_binned                   	 if  dtax_non_trade_real != . & indep==1	, absorb(year iso_n)  cluster (iso_n) 
			
			
			 

	 
		*** Validate Credit
		
			eststo credit1: reghdfe  debt_colfed_dum     cr_market_accessXBOEinv   									if dtax_non_trade_real != . ,   absorb(year iso_n) cluster(  	 iso_n)
			eststo credit2: reghdfe  debt_colfed_dum     i.cr_market_accessXBOEinv_binned   						if dtax_non_trade_real != .  ,   absorb(year iso_n) cluster(    iso_n)
	 
	 
	   
		*** Validate Resources 
		
			
			gen ln_resource_trade_real_LCU=log(resource_trade_real_LCU)
			
			eststo resource1:  reghdfe ln_resource_trade_real_LCU     P_ind_total_f_realshare   			if dtax_non_trade_real != . ,   absorb(year iso_n) cluster(  iso_n)
			eststo resource2:  reghdfe  resource_trade_real_LCU     	i.P_ind_total_f_realshare_binned   	if dtax_non_trade_real != . ,   absorb(year iso_n) cluster(  iso_n)
		
		
		
	esttab 	 aid1 aid2 credit1 credit2 resource1 resource2 using "Output/Tables/Appendix/APP_TAB_3_2.rtf", replace style(tex) cells(b(star fmt(2)) se(par fmt(2))) stats(r2_a N F, fmt(%9.2f %9.0g)) legend label varlabels(_cons constant) starlevels(* 0.1 ** 0.05 *** 0.01)
	esttab 	 aid1 aid2 credit1 credit2 resource1 resource2 using "Output/Tables/Appendix/APP_TAB_3_2.tex", replace style(tex) cells(b(star fmt(2)) se(par fmt(2))) stats(r2_a N F, fmt(%9.2f %9.0g)) legend label varlabels(_cons constant) starlevels(* 0.1 ** 0.05 *** 0.01)

			
			
